$x=50;
$y=70;

print "Valores iniciales: x:$x y:$y\n";

&interchange ($x, $y);

print "Valores finales: x:$x y:$y\n";

sub interchange {
	($x1, $y1) = @_;

	$x1 = 60;
	$y1 = 80;

	print "Valores dentro de Interchange: x1:$x1 y1:$y1\n";
	print "Usa pasaje por valor."
}

